home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / num-sort [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  94 lines
  1. 10 ifpeek(828)<>160thenload"msp-sort*",8,1
  2. 20 dimb$(850):x=0:la$="video.dat":goto50
  3. 30 poke198,0:wait198,1:poke198,0:return
  4. 40 print"[147]       daten werden sortiert!":b$(x+1)="":sys828:goto300
  5. 50 poke53281,11:poke53280,11
  6. 60 print"[147]   [158]video-datei nach nummern sortieren   "
  7. 70 print" eine nach titeln sortierte datei wird"
  8. 80 print" durch dieses programm nach den band- "
  9. 90 print" nummern sortiert, die daten werden   "
  10. 100 print" (auf wunsch) angezeigt und auf lw 9  "
  11. 110 print" gespeichert. anschliessend koennen   "
  12. 120 print" die datensaetze gedruckt werden (op- "
  13. 130 print" tional)."
  14. 140 print" laufwerk 8 (quell-) und 9 (ziel-datei) [146]            einschalten!"
  15. 150 getqr$:ifqr$=""then150
  16. 160 ifqr$="e"thenend
  17. 170 ifqr$=chr$(140)then510
  18. 180 ka$="":input"[158]welche datei aendern ";ka$:ifka$=""then200
  19. 190 la$=la$+"."+ka$
  20. 200 print"laden";
  21. 210 open2,8,2,la$+",s,r":lw=8:gosub840
  22. 220 open2,8,2,la$+",s,r"
  23. 230 input#2,s$:re=(len(s$)-32):print"[153]"x
  24. 240 af$="000"+right$(s$,re)
  25. 250 af$=right$(af$,4)
  26. 260 b$(x)=af$+left$(s$,32)
  27. 270 ifst<>64thenx=x+1:goto230
  28. 280 close2
  29. 290 goto40
  30. 300 print"[147][158] daten anzeigen ?"
  31. 310 getaz$:ifaz$<>"j"andaz$<>"n"then310
  32. 320 ifaz$="n"andnu=1then410
  33. 330 ifaz$="n"then360
  34. 340 print"[147]":fort=0tox:ift>0thenif(t/20)=int(t/20)thengosub30:print"[147]"
  35. 350 printleft$(b$(t),4)" "mid$(b$(t),5,30)" "right$(b$(t),2):next:gosub30:ifnu=1then410
  36. 360 print"[147]speichern"
  37. 370 open2,9,2,la$+",s,w":lw=9:gosub840
  38. 380 open2,9,2,la$+",s,w"
  39. 390 fort=0tox:print#2,b$(t):print"[153] "t:next
  40. 400 close2:open15,8,15:close15
  41. 410 print"[147]drucken ?"
  42. 420 getdr$:ifdr$<>"j"anddr$<>"n"then420
  43. 430 ifdr$="n"thenend
  44. 440 print"   bitte drucker einschalten ! "
  45. 450 gosub30
  46. 460 open4,4:fort=0tox
  47. 470 print#4,"     "left$(b$(t),4)"  "mid$(b$(t),5,30)"  "right$(b$(t),2)
  48. 480 ifleft$(b$(t+1),4)<>left$(b$(t),4)thenprint#4
  49. 490 next
  50. 500 print#4:close4:end
  51. 510 fort=13to14:poke781,t:sys59903:next:print"[155]"
  52. 520 a$="eine nach nummern sortierte datei kann":gosub630
  53. 530 a$="   mit diesem programm geladen,       ":gosub630
  54. 540 a$=" angesehen und gedruckt werden.       ":gosub630
  55. 550 a$=" dafuer jetzt bitte die diskette mit  ":gosub630
  56. 560 a$=" der numerischen datei in das         ":gosub630
  57. 570 a$=" laufwerk 8 legen !                   ":gosub630:print"";
  58. 580 a$=" <zurueck mit f8!>                    ":gosub630
  59. 590 getzu$:ifzu$=""then590
  60. 600 ifzu$=chr$(140)then60
  61. 610 ifzu$="e"thenend
  62. 620 goto640
  63. 630 fort=1to38:printmid$(a$,t,1);:foru=1to40:next:next:print:return
  64. 640 ka$="":input"[158]welche datei laden ";ka$:ifka$=""then670
  65. 650 ifka$="e"thenend
  66. 660 la$=la$+"."+ka$
  67. 670 print"laden";
  68. 680 open2,8,2,la$+",s,r":lw=8:gosub840
  69. 690 open2,8,2,la$+",s,r"
  70. 700 input#2,b$(x):ifasc(b$(x))<48orasc(b$(x))>57then750
  71. 710 print"[153]"x
  72. 720 ifst<>64thenx=x+1:goto700
  73. 730 close2
  74. 740 nu=1:goto300
  75. 750 gosub760:goto770
  76. 760 fort=3to12:poke781,t:sys59903:next:print"":return
  77. 770 print:print"[150] keine numerische datei ! [146]":close2
  78. 780 print"mit                   ":print"<f1> zum umsortieren"
  79. 790 print"<f8> zur namen-eingabe":print"<e > programm beenden"
  80. 800 getfe$:iffe$<>chr$(133)andfe$<>chr$(140)andfe$<>"e"then800
  81. 810 iffe$=chr$(133)then60
  82. 820 iffe$=chr$(140)thengosub760:print"":goto640
  83. 830 print"":end
  84. 840 open15,lw,15:input#15,aa,bb$,cc,dd
  85. 850 ifaa<>0thengosub760:print"[150] fehler ! ":close2:close15:goto870
  86. 860 close2:close15:return
  87. 870 iflw=9thenifbb$="file exists"then900
  88. 880 print"bitte den datei-namen pruefen und":print"dann das programm neu starten!"
  89. 890 end
  90. 900 print""bb$" - file loeschen ?"
  91. 910 getll$:ifll$<>"j"andll$<>"n"then910
  92. 920 ifll$="n"thenend
  93. 930 open15,9,15,"s:"+la$:close15:return
  94.